function strtoint(s:string):int64;
var k:longint;
begin
val(s,result,k);
end;